GETSUBSTR LibreOffice için işlev Calc

GETSUBSTR() Açıklama

GETSUBSTR() işlevi, metnin bir kısmını verilen ayırıcıyla seçmek için tasarlanmıştır.

GETSUBSTR işlev kodu, metni belirtilen ayırıcıya göre bir diziye böler ve belirtilen seri numarasına göre verilen dizinin öğesini döndürür.

StarBASIC GETSUBSTR için kod

Aşağıda, metni parçalara bölebilen ve LibreOffice programındaki Calc içindeki herhangi bir öğeyi alabilen özel bir GETSUBSTR işlevi oluşturmaya yönelik makro kodu verilmiştir.

Yeni bir işlev eklemek için Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni modüle kopyalayın:

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

Ardından, Macro Editor'u kapatın, LibreOffice Calc'ye dönün ve yeni işlevi herhangi bir hücrede kullanın.

Uzantıyı kullanma

Bu özelliği de kullanabilirsiniz GETSUBSTR() ücretsiz uzantıyı yükleyerek YouLibreCalc.oxt veya tam özellikli sürümü YLC_Utilities.oxt .

Bundan sonra bu fonksiyon LibreOffice Calc'de açılacak tüm dosyalarda mevcut olacaktır.